/* insert a row r into s at row rnum */
insertrow(s, r, rnum, mode)
{
        if (argc < 4)
        {
                if (argc < 3) error("insertrow - source, row and row number required");
                
                mode = 0;
        }

        return(insert(s, r, ones(1, numcols(r)) * rnum, mode));
}