我有一个大的多边形数据集，并且通过循环，我尝试在某个时刻查找、计算和存储交点。在第 870 次迭代时，循环停止并出现错误：
Error in RGEOSBinTopoFunc(spgeom1, spgeom2, byid, id, drop_lower_td, unaryUnion_if_byid_false, :
TopologyException: Input geom 0 is invalid: Ring Self-intersection at or near point 26.437120350000001 39.241770119999998 at 26.437120350000001 39.241770119999998
我使用traceback()但我实际上无法理解它：
4: .Call("rgeos_intersection", .RGEOS_HANDLE, spgeom1, spgeom2,
byid, ids, PACKAGE = "rgeos")
3: RGEOSBinTopoFunc(spgeom1, spgeom2, byid, id, drop_lower_td, unaryUnion_if_byid_false,
"rgeos_intersection")
2: gIntersection(combinations[[i]][[1, m]], combinations[[i]][[2,
m]]) at #17 . Can anyone explain what to look in ` traceback`?
谁能解释一下该看什么traceback？
谢谢
我是神经网络的新手,并且正在尝试使用一些大数据集.有没有办法将所有输入变量都包含在网络中而无需键入所有名称？例如,我有大约30个变量,我想用它们来预测输出.以下命令是否有快捷方式？
net <- neuralnet(Output~Var1+Var2+Var3+Var4+.....upto Var30, data, hidden=0)
我到处寻找,但无法找到解决方案.对不起,如果这是一个基本问题!
我是 R 新手，尝试从文本中检索数据，然后将其应用于 SVM 进行分类。这是代码：
train<-read.table("training.txt")
train[which(train=="?",arr.ind=TRUE)]<-NA
train=unique(train)
y=train[,length(train)]
classifier<-svm(y~.,data=train[,-length(train)],scale=F)
classifier<-svm(x=train[,-length(train)],y=factor(y),scale=F)
我尝试了两种不同的方法来调用 svm，第一种(svm(y~.,data=train[,-length(train)],scale=F))似乎没问题，但第二种有问题，它报告说：
Error in svm.default(x = train[, length(train)], y = factor(y), scale = F) :
NA/NaN/Inf in foreign function call (arg 1)
In addition: Warning message:
In svm.default(x = train[, length(train)], y = factor(y), scale = F) :
NAs introduced by coercion
这是 的示例training.txt，最后一列是目标
39,State-gov,77516,Bachelors,13,Never-married,Adm-clerical,Not-in-family,White,Male,2174,0,40,United-States,0
50,Self-emp-not-inc,83311,Bachelors,13,Married-civ-spouse,Exec-managerial,Husband,White,Male,0,0,13,United-States,0
38,Private,215646,HS-grad,9,Divorced,Handlers-cleaners,Not-in-family,White,Male,0,0,40,United-States,0
53,Private,234721,11th,7,Married-civ-spouse,Handlers-cleaners,Husband,Black,Male,0,0,40,United-States,0
28,Private,338409,Bachelors,13,Married-civ-spouse,Prof-specialty,Wife,Black,Female,0,0,40,Cuba,0
37,Private,284582,Masters,14,Married-civ-spouse,Exec-managerial,Wife,White,Female,0,0,40,United-States,0
49,Private,160187,9th,5,Married-spouse-absent,Other-service,Not-in-family,Black,Female,0,0,16,Jamaica,0
52,Self-emp-not-inc,209642,HS-grad,9,Married-civ-spouse,Exec-managerial,Husband,White,Male,0,0,45,United-States,1
31,Private,45781,Masters,14,Never-married,Prof-specialty,Not-in-family,White,Female,14084,0,50,United-States,1
42,Private,159449,Bachelors,13,Married-civ-spouse,Exec-managerial,Husband,White,Male,5178,0,40,United-States,1
37,Private,280464,Some-college,10,Married-civ-spouse,Exec-managerial,Husband,Black,Male,0,0,80,United-States,1
30,State-gov,141297,Bachelors,13,Married-civ-spouse,Prof-specialty,Husband,Asian-Pac-Islander,Male,0,0,40,India,1
23,Private,122272,Bachelors,13,Never-married,Adm-clerical,Own-child,White,Female,0,0,30,United-States,0
32,Private,205019,Assoc-acdm,12,Never-married,Sales,Not-in-family,Black,Male,0,0,50,United-States,0
40,Private,121772,Assoc-voc,11,Married-civ-spouse,Craft-repair,Husband,Asian-Pac-Islander,Male,0,0,40,NA,1
有什么想法吗？提前致谢！
我正在尝试使用诸如此类的东西创建离散正态分布
x <- rnorm(1000, mean = 350, sd = 20)
但我不认为该rnorm功能有内置的"离散数字"选项.我花了几个小时试图在StackOverflow,Google和R文档上搜索它,但还没有找到任何东西.
我是R新手,但我正在寻找一种方法来确定R中以下函数相关的三个参数A,B和C:
y = A * (x1^B) * (x2^C)
有人可以给我一些关于R方法的提示,这有助于我实现这样的拟合吗？
我有一个数据集，我试图将特定列的内容传递到 SQL where 语句中。
例如，假设 iris 是我的数据集
data(iris)
head(iris)
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
5.1 3.5 1.4 0.2 setosa
4.9 3.0 1.4 0.2 setosa
4.7 3.2 1.3 0.2 setosa
4.6 3.1 1.5 0.2 setosa
5.0 3.6 1.4 0.2 setosa
5.4 3.9 1.7 0.4 setosa
我想将 Species { setosa, setosa, setosa.....setosa} 列的内容传递给我的 sql 查询 where 语句
sqlQuery(abcd, paste("Select * from TestTableName1
where WHERE DESCRIPTION
IN (values of Species column from r dataframe)");
这里需要帮助
我正在使用插入符号包来尝试许多分类方法。目前，我想使用离开小组出差交叉验证方法（我知道有更好的方法）。
这是我正在使用的火车控件：
train_control <- trainControl(method = "LGOCV", p = .7, number = 1)
我的问题是当我通过火车功能应用时，例如
model <- train(Type ~ ., data=training, method = "rpart", trControl = train_control)
如何获取用于训练的样本和小组中被保留的样本？
谢谢
以下代码：
require(caret)
require(plyr)
portuguese_scores = read.table("https://raw.githubusercontent.com/JimGorman17/Datasets/master/student-por.csv",sep=";",header=TRUE, stringsAsFactors = FALSE)
portuguese_scores <- portuguese_scores[,!names(portuguese_scores) %in% c("school", "age", "G1", "G2")]
median_score <- summary(portuguese_scores$G3)['Median']
portuguese_scores$score_gte_than_median <- as.factor(median_score<=portuguese_scores$G3)
portuguese_scores <- portuguese_scores[,!names(portuguese_scores) %in% c("G3")]
portuguese_scores$sex <- as.numeric(mapvalues(portuguese_scores$sex, from = c("M", "F"), to = c(0, 1)))
portuguese_scores$address <- as.numeric(mapvalues(portuguese_scores$address, from = c("U", "R"), to = c(0, 1)))
portuguese_scores$famsize <- as.numeric(mapvalues(portuguese_scores$famsize, from = c("LE3", "GT3"), to = c(0, 1)))
portuguese_scores$Pstatus <- as.numeric(mapvalues(portuguese_scores$Pstatus, from = c("T", "A"), to = c(0, 1)))
portuguese_scores$Mjob <- as.numeric(mapvalues(portuguese_scores$Mjob, from = c("at_home","health","other","services","teacher"), to = …这是我关于编程的第一篇文章,所以如果我没有使用正确的术语或在正确的位置发布,我会道歉.我对使用r非常陌生,而且对编程很新(除了一点点VBA).我写了一个基本函数,用于计算从最新价格到最早价格列出的股票价格列表的每日价格回报.我认为我的代码有点草率,我可以使用一些帮助来清理它.我创建"returnarray"的目的是让我可以将循环结果存储到变量而不是仅仅打印.
我真的想在这里做的一件事是消除对"returnarray"的需要,而是希望将结果保存到用户输入的任何内容中.例如,myreturns <- price.return(mydata)将生成一个名为myreturns的变量,其中包含所有返回值,而不是创建returnarray.在下面找到我的代码,并提前感谢您.
price.return <- function(mydata)
{
returnarray <- c()
tmp <- c()
for (i in 1:length(mydata)-1)
{
tmp <- (((mydata[i]/mydata[i+1])-1))
returnarray <- c(returnarray,tmp)
returnarray <<- returnarray
}
}
我有一个矢量vec.我需要在最后一个"/"之前删除该部分并获取剩余的字符串并获取result.另请注意,我不能使用Perl兼容的regexp(即perl = FALSE).我也希望看到第n个分隔符.
vec<-c("/apple/pineapple/mango/reg.sh_ttgs.pos","/apple/pipple/mgo/deh_ttgs.pos")
最后一个分隔符的结果
reg.sh_ttgs.pos , deh_ttgs.pos
第二个分隔符的结果
pineapple/mango/reg.sh_ttgs.pos, pipple/mgo/deh_ttgs.pos
等等..