x <- c( 1, 1.5, 2, 3, 4.2, 5.0, 6.1, 5.3, 4.5, 0.9, 2.1, 4.3)
d <- c( 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1)
f<-function( x) { x-3.7}
g=list( f=f) ;
re=kmc.solve( x,d,g) ;
re;
print(re,3,type='md')
Run the code above in your browser using DataLab