r

    0热度

    1回答

    我有一个数据集称为值有四个变量(ER是因变量)和400个观察值(删除N/A后)。我尝试将数据集划分为训练集和测试集,并使用插入符号包中的线性回归对模型进行训练。但是,我总是得到错误: In lm.fit(x, y, offset = offset, singular.ok = singular.ok, ... : extra argument ‘trcontrol’ is disrega

    1热度

    1回答

    我试图在R中实现Brent-Salamin algorithm的变体。它在前25次迭代中运行良好,但后来出乎意料地返回负结果。 算法我想要实现的是: initial values: x_0 = 1; y_0 = 1/sqrt(2); z_0 = 1/2 x_n = (x_n-1 + y_n-1)/2 y_n = sqrt(x_n-1 * y_n-1) z_n = z_n-1 - 2^n

    0热度

    3回答

    如何将R中的日期转换为没有破折号或斜线的字符串或没有冒号的字母和时间。例如,我可以在R中获得2017-12-07,但我需要201712071520在Weather API调用中使用。我怎样才能做到这一点?有关参考请参阅下面的示例调用startDateTime和endDateTime。我想将我的日期转换为20171207格式,并在没有冒号的情况下将其附加到固定时间(1520)。感谢您的帮助! 我被告

    2热度

    1回答

    我尝试运行: install.packages("MonetDBLite") 在R. 不过,我得到以下错误: cc1: error: -Wformat-security ignored without -Wformat [-Werror=format-security] cc1: some warnings being treated as errors Makevars:194: rec

    0热度

    5回答

    我有在“DyStart”和“DyEnd”错误条目的啤酒数据帧.... dataframe ID DyStart DyEnd TmStart TmEnd 1 04.12.2017 04.12.2017 10:10:00 10:50:00 2 01.12.2017 01.12.2017 12:27:00 16:29:00 3 27.11.2017 27.11.2017 1

    5热度

    2回答

    我想了解是否以及如何使用tidyverse框架可以实现。 假设我有以下简单功能: my_fn <- function(list_char) { data.frame(comma_separated = rep(paste0(list_char, collapse = ","),2), second_col = "test", stringsAsFactors =

    0热度

    1回答

    我需要合并两个数据集,但在第二个数据集中,可能有重复的id,例如多个id为1,1,1。如果有重复的ID,如何合并到它们的第一行? 更清楚,这里有一个重复的例子: df1 structure(list(id = 1:2, y = 10:11), .Names = c("id", "y"), class = "data.frame", row.names = c(NA, -2L)) df2

    0热度

    5回答

    我想在数据框中使用“if”语句在两个日期之间求和。 date = seq(as.Date("2000-01-01"), as.Date("2000-01-31"), by="days") nums = seq(1, 1, length.out = 31) df = data.frame(date, nums) if(df$date >= as.Date("2000-01-01") && d

    0热度

    3回答

    我的第一行是添加下列行的参考值(对于N列)。 数据 A B C D 3 5 1 2 1 4 5 3 2 2 2 4 3 1 3 1 4 3 1 2 计算如下: 3,是被添加的参考值,它是3应被添加到1,2,3和4中,类似地5是参考值 - 被加到4,2,1,3,然后1被参考值加到5,2,3,1等等直到n列。 1 + 3 4 + 5 5 + 1 3 + 2 2 + 3 2 + 5 2

    2热度

    1回答

    我想使用fread函数读取多个文件(csv)。但最后一行我有不必要的数据,我无法使用fread,因为它会抛出一个错误。 代码: library(data.table) fnames <- list.files("Path",pattern = "^.*Star.*.csv$",full=TRUE) read_data <- function(z){ dat <- fre