search for: labpo

...ible patch: ==================================== The fix is hard to explain, because changes are required in many places. On line 85 (or thereabouts) of the plot.lm function, there is a function called text.id which does the labelling: text.id <- function(x, y, ind, adj.x = TRUE) { labpos <- if (adj.x) label.pos[1 + as.numeric(x > mean(range(x)))] else 3 text(x, y, labels.id[ind], cex = cex.id, xpd = TRUE, pos = labpos, offset = 0.25) } This text.id function is called for plots corresponding to which==1 (lines 1...

...I found the package Daim with function Daim for estimation of prediction error based on cross-validation (CV) or various bootstrap techniques. But I am not able to run it properly. I tried the following 3 versions: 1. accurancy <- Daim (vegetation ~ s(slope), model=gam1, data=aufnahmen_0708, labpos="alpine mats") --> error: could not find function "model" 2. accurancy <- Daim (vegetation ~ s(slope), model=gam, data=aufnahmen_0708, labpos="alpine mats") --> error in model(formula, train, test) : `family' not recognized 3. accurancy <- Daim (vege...

...ry(Daim) mylda <- function(formula,train,test){ model <- lda(formula,train) predict(model,test)$posterior[,"pos"] } x<-Daim(OUTBREAK2 ~ COHESION.2 + COHESION.23 + ED.2 + PLAND.12 + PLAND.2 + PLAND.25 + PLAND.26 + ALTITUDE_MEAN + SLOPE_MEAN + LSI, model=mylda,data=landscape,labpos=1, control=Daim.control(method="boot",number=10000),returnSample=TRUE, cutoff=0.71) auc(x) summary(x) [[alternative HTML version deleted]]

...labels.id <- paste(1:n) iid <- 1:id.n show.r <- sort.list(abs(r), decreasing = TRUE)[iid] if (any(show[2:3])) show.rs <- sort.list(abs(rs), decreasing = TRUE)[iid] text.id <- function(x, y, ind, adj.x = FALSE){ midx <- mean(range(x)) labpos <- if (!adj.x) 3 else label.pos[1+as.numeric(x>midx)] text(x, y, labels.id[ind], cex = cex.id, xpd = TRUE, pos=labpos, offset=0.25) } } one.fig <- prod(par("mfcol")) == 1 if (ask) { op <- par(ask = TRUE) on.exit(par(o...