rm(list=ls())library(ISLR2)
quart1=function(u){ if(u>=-1&&u<=1){D=1 }else{D=0 } M=D*(15/16)*(1-u^2)^2 return(M)}plot(quart1,xlim=NULL,type="p")