function tramolin clear
function tramolin(series sername, scalar year, scalar startp, scalar linux)
set echo on
set messages on
if (!isstring(tram) | !isstring(tramodi))
     funcerr "The strings 'tram' (tramo executable) and  'tramodi' (tramo directory) must be defined" 
end if
scalar nobser = $nobs
if linux=0
  outfile --write "@tramodi\sername"
else
  outfile --write "@tramodi/sername"
endif
  printf "sername\n" 
  printf "%.8g %.8g %.8g %.8g\n", nobser, year, startp, $pd
  loop j=1..nobser --quiet
        if missing(sername[j]) 
           printf "-99999\n"
        else 
           printf "%.8g\n", sername[j]
        end if
  endloop
  printf "$INPUT RSA=3 $\n"
  printf "\n"
  outfile --close
if linux=0
  set shelldir @tramodi\graph\series
  ! del /Q *.t && cd @tramodi && @tramo -i sername -k sername.ser && cd @tramodi\graph\series && if exist xlin.t. (echo ser_lin > sername.txt) else (echo ser_orig > sername.txt)
  ! if exist xlin.t. (more +6 xlin.t >> sername.txt) else (more +6 xorigt.t >> sername.txt)
  append "@tramodi\graph\series\sername.txt"
else
  set shelldir @tramodi/graph/series
  ! rm -f *.t 
  ! cd @tramodi && @tram -i sername -k sername.ser 
  ! cd @tramodi/graph/series && if [ -e "xlin.t" ]; then echo "ser_lin" > sername.txt; else echo "ser_orig" > sername.txt ; fi
  ! if [ -e "xlin.t" ]; then tail --lines=+7 xlin.t >> sername.txt ; else tail --lines=+7 xorigt.t >> sername.txt ; fi
  append "@tramodi/graph/series/sername.txt"
endif

 if ok(isseries(ser_lin))=0
   rename ser_orig adjusted
   setinfo adjusted -d "Original"
 else 
   rename ser_lin adjusted
   setinfo adjusted -d "Linearized"
 endif
return series adjusted
end function