R/UpdateKstar.R

In svmpath: The SVM Path Algorithm

Defines functions UpdateKstar

Documented in UpdateKstar

UpdateKstar<-function(Kstar,Kell,Krow,y){
  if(length(y)==1){
    advec<-c(y,Krow)
    Kstar<-rbind(Kstar,advec)
    cbind(Kstar,c(advec,Kell))
  }
  else{
    adrect<-cbind(y,Krow)
    Kstar<-rbind(Kstar,adrect)
    cbind(Kstar,rbind(t(adrect),Kell))
  }
}
  

Try the svmpath package in your browser