search for: diffmean

...iroot to solve the equation I get an error message, Error in yfu n(x,10,20) : object 'x' not found. I hope someone can tell we how I can fix the problem if(!require(rootSolve)){install.packages("rootSolve")} library(rootSolve) # Define the function yfun <- function(x,diffMean,diffSE) ((abs(diffMean)-x)/diffSE) # Prove the function and a call to the function work yfun(10,100,10) # use uniroot to find a solution to the # function in the range -100 to 100 uniroot(yfun(x,10,20),c(-100,100)) My output: > # Define the function > yfun <- function(x,dif...

...e, > Error in yfu n(x,10,20) : object 'x' not found. > > I hope someone can tell we how I can fix the problem > > if(!require(rootSolve)){install.packages("rootSolve")} > library(rootSolve) > > # Define the function > yfun <- function(x,diffMean,diffSE) ((abs(diffMean)-x)/diffSE) > # Prove the function and a call to the function work > yfun(10,100,10) > # use uniroot to find a solution to the > # function in the range -100 to 100 > uniroot(yfun(x,10,20),c(-100,100)) > > > My output: >> # De...

Hello all, could you please tell me how to create a 95 percent confidence interval using R, if I have the next data: > blue [1] 4 69 87 35 39 79 31 79 65 95 68 62 70 80 84 79 66 75 59 77 36 86 39 85 74 [26] 72 69 85 85 72 > red [1] 62 80 82 83 0 81 28 69 48 90 63 77 0 55 83 85 54 72 58 68 88 83 78 30 58 [26] 45 78 64 87 65 Build a confidence interval of 95 % for the difference of the

...i, sii, L, H, sL, sH) ## BEGIN BLOCK #{ # necessary variables in the function #{ NN, DD, Dsi, Dsii, DsD, ss, # dd, lownum, upnum, low, up, psv, PSV, # zz, lowinum, upinum, lowiinum, upiinum, psbarv, PSbarV, # psvbar, PSVbar, psbarvbar, PSbarVbar, cc, # sv, sbarv, svbar, sbarvbar, # samemeans, diffmeans, samevars, diffvars, diffsets }, ### defintion of constants NN <- Ni+Nii DD <- (Ni * Di + Nii * Dii) / NN Dsi <- (Ni-1) / Ni * si^2 + Di^2 Dsii <- (Nii-1) / Nii * sii^2 + Dii^2 DsD <- (Ni * Dsi + Nii * Dsii) / NN ss <- sqrt(NN * (DsD - DD^2) / (NN-1)) ### descriptive statist...