search for: ppr

I used the supersmoother function in the modreg package as follows: super <- supsmu(ilogemp,award) Then I decided that I might want additional explanatory variables (other than ilogemp) in my model. The ppr function in modreg seemed a logical extension of supsmu from univariate to multidimensional explanatory variables. As a "check" I ran the following: pprest <- ppr(ilogemp,award,nterms=1), figuring I'd get the same results. I did not. First, the fitted values ppr output is not...

Hi all, I am doing a projection pursuit regression using the ppr() function from modreg. I would also like to use predict.ppr(). However, I cannot find any information about it in the help files. There is a link to predict.ppr in the index for modreg, but that link is to the help for ppr(). Has predict.ppr() not been implemented? If not, does anyone have a sug...

Dear R listers -- I have several questions about using the ppr command in the modreg module. I discovered -- quite by accident -- that if I re-order the data, I obtain different results. The output below shows what I mean. I have two datasets (dataset1 and dataset2) that are identical (tested using proc compare in SAS) except for the fact that the records a...

I'm trying to cross-compile R on a Mac OS X box to target Win32. It works quite well, everything works, except for one fortran file ppr.f in the stats package: ---------- Making package stats ------------ adding build stamp to DESCRIPTION installing NAMESPACE file and metadata making DLL ... i386-mingw32-g77 -O2 -Wall -c ppr.f -o ppr.o ppr.f:803: sorry, unimplemented: data initializer on host with different endianness...

I'm trying to cross-compile R on a Mac OS X box to target Win32. It works quite well, everything works, except for one fortran file ppr.f in the stats package: ---------- Making package stats ------------ adding build stamp to DESCRIPTION installing NAMESPACE file and metadata making DLL ... i386-mingw32-g77 -O2 -Wall -c ppr.f -o ppr.o ppr.f:803: sorry, unimplemented: data initializer on host with different endianness...

Hi, Recently, I installed the 1.1.0 version of R (for Windows), since it includes an implementation of Projection Pursuit (I failed to write my own version of PP as a standalone C++ program). As far as I know, R offers two interfaces/sintax for the ppr() function. The first one requieres a regression formula and a data frame. The other requieres X, a matrix with the explanatory variables, and Y, wich I presume is a matrix containing the responses (documentation for ppr doesn't explain what kind of object is Y). My problems are: a)I can'...

...red) more succinctly as follows: 1. This seems to work (note that group takes values 1,2,3,4, or 5): my.newfun <- function(x) myfile <- lm(award ~ ilogemp + ilogage, x) test.by <- by(wintemp, as.factor(wintemp$group), my.newfun) 2. This does not work (leaving aside whether I am using ppr correctly or not!): > my.pprfun <- function(x) mypprfile <- ppr(award ~ ilogemp + ilogage, data = x, nterms = 5, + max.terms = 10, optlevel = 3) > test.by <- by(wintemp, as.factor(wintemp$group), my.pprfun) Error in model.frame.default(formula = award ~ ilogemp + ilog...

Dear R users, I am looking for the source code of the implementation of ppr (Projection Pursuit Regression) in R. It will be great if citations of the source papers on which the implementation is based, are also provided. Thank you, Arvind Iyer, Grad student, Deptt. of Biomedical Engineering Viterbi School of Engineering University of Southern California, Los Angeles [...

Hi, I'm running samba 2.2.1a (RPM install) on RedHat 7.2 I've connected a Canon LBP-8 IV laserprinter to the network via a HP Jetdirect box. I've configured the printer within linux and printing goes fine. Now I'm trying to access the printer via samba from my win2k clients. Now, the problem is: When I'm trying to print to the printer (e.g. a testpage) I get the message

The pursuit projection packages ppr is an excellent contribution to R. It is great for one-to-three ridge fits, often somewhat intuitive, and for multi-ridge fits, where it at least describes a lot of variance. Like many folk, I need to report the fits obtained from ppr to the greater, outside, non-R world. It is fairly obvi...

Dear all, I have been doing tests using SVM, random forests and PPR. The data is from a data stream (that is, the data for training and for test is always increasing / changing). With SVM and random forests everything is ok, but with ppr there are situations where it crashes. For the examples I have used I noticed that if one of the variables has just one value (it...

...<-i+1 } results in: 1 2 3 4 5 6 7 8 9 Program received signal SIGSEGV, Segmentation fault. smooth_ (n=0xffffeffe, x=0xb6a7f020, y=0xb6993020, w=0xb6921020, span=0xffffeffe, iper=0xffffeffe, vsmlsq=0xffffeffe, smo=0xb68e8020, acvr=0x9c7e7c8) at ppr.f:1087 1087 xti=x(j) Current language: auto; currently fortran (gdb) list 1082 if (ibw.lt.2) ibw=2 1083 it=2*ibw+1 1084 do 20 i=1,it 1085 j=i 1086 if (jper.eq.2) j=i-ibw-1 -> 1087 xti=x(j) 1088...

The following are now on CRAN: KernSmooth: version 2.2 of the code for Wand & Jones book on kernel smoothing. logspline: spline fits to log denisites, with automatic choice of smoothing. ppr: projection pursuit regression. rpart: recursive partitioning (CART-like) VR: Venables & Ripley libraries 5.3pl021 for 0.62.1 and in the devel section tree: a clone of tree, prune.tree, cv.tree ... which is fully operational but not much documented. Use your V&a...

The following are now on CRAN: KernSmooth: version 2.2 of the code for Wand & Jones book on kernel smoothing. logspline: spline fits to log denisites, with automatic choice of smoothing. ppr: projection pursuit regression. rpart: recursive partitioning (CART-like) VR: Venables & Ripley libraries 5.3pl021 for 0.62.1 and in the devel section tree: a clone of tree, prune.tree, cv.tree ... which is fully operational but not much documented. Use your V&a...

Dear R listers -- The program below does the following tasks: 1. It creates a file (wintemp4) that is a subset of alldata4 consisting of "winner" records in 50 industry groups (about 5400 obs); 2. It defines a function (myppr1) that runs the ppr function in modreg once to generate goodness of fit (sum of squared errors) measures by number of terms included in model and then reruns ppr using the number of terms with the lowest sum of squared errors. 3. It grinds through a loop, subsetting wintemp4 by group and running...

...ations.c index e01fa5c..529b0e5 100644 --- a/src/metaflac/operations.c +++ b/src/metaflac/operations.c @@ -551,7 +551,7 @@ void write_metadata(const char *filename, FLAC__StreamMetadata *block, unsigned unsigned i, j; /*@@@ yuck, should do this with a varargs function or something: */ -#define PPR if(filename)flac_printf("%s:",filename); +#define PPR if(filename) if(raw) printf("%s:",filename); else flac_printf("%s:",filename); PPR; printf("METADATA block #%u\n", block_number); PPR; printf(" type: %u (%s)\n", (unsigned)block->type, bl...

Dear R list: I want to make separate estimates for each level of the variable "group." After consulting many sources I am stumped as to why the following does not work: > wintemp <- subset(alltemp, winner==1) > my.ppr <- function(x) + { + if(nrow(x) >= 50) { + pprfile <- ppr(award~ilogemp, data=x,nterms=5,max.terms=10,optlevel=3) + summary(pprfile) + } + } > test.by <- by(wintemp,as.factor(wintemp$group),my.ppr) Error in model.frame.default(formula = award ~ ilogemp, data = x)...

Full_Name: Hugh Miller Version: 2.8.1 OS: XP Submission from: (NULL) (128.250.24.101) Hi there, I've been looking at approaches that use the projection pursuit regression function fairly (ppr) heavily, and have discovered that it crashes my R system on occasion. It only happens with the inputs are pathological in some way I don't understand. I have pasted such an example below. Any help gratefully appreciated. R...

Hello everybody, I'm a new user of R and I'm working right now with the ACE function from the acepack library. I Have a question: Is there a way to predict new responses using ACE? What I mean is doing something similar to the following code that uses PPR (Projection Pursuit Regression): library(MASS) x <- runif(20, 0, 1) xnew <- runif(2000, 0, 1) y <- sin(x) a <- ppr(x, y, 2) ynew <- predict(ppr, xnew) Any help would be much appretiated, Thanks in advance, Luis Pineda

...ursuit regression function in the base R seems to crash when the optimization level is set to zero, i.e. the initial ridge terms are accepted without refitting. I encountered this problem in an out-of-sample prediction exercise using predict. But further investigation suggests the issue is with the ppr fit and predict just sppeds up the crash. The other optlevels seem to be OK, but I have not done enough testing to say for sure. I'm using 2.11.1 under the 32-bit Windows XP. I've also tested the codes under a 64-bit Ubuntu and the same problem occurred. By the way, right before Rgui shuts...